home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 25 / 025.d81 / color select (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  129 lines
  1. 1 ifx=0thenx=1:load"routines*",8,1
  2. 700 poke1020,2:poke1021,17:poke1022,1:poke1023,38
  3. 800 open15,8,15,"i0":close15
  4. 820 open2,8,2,"$":                          forx=0to156:get#2,a$:next
  5. 830 get#2,a$:si=val(a$):close2
  6. 900 gosub6000:print"[147][144]":poke53281,c%(1):poke53280,c%(0)
  7. 1000 poke646,c%(4)
  8. 1010 printwt$;:fori=2to17:print"[221]"spc(38)"[221]";:next:printwb$;:poke646,c%(3)
  9. 1050 fori=217to242:pokei,peek(i)or128:next:poke646,c%(5):sys51203:goto2500
  10. 1055 poke2023,125:poke56295,c%(3):           return
  11. 1060 :
  12. 1100 poke783,peek(783)and254:poke781,y%:poke782,x%:sys65520:return
  13. 1200 :
  14. 1300 :
  15. 2500 poke646,c%(2):print"       [204][207][193][196][211][212][193][210] [195]olor [211]election        ":r%=.
  16. 2505 poke646,c%(5):sys51200:print"[198]rom here, you can select the colors
  17. 2510 [153]"that you find most legible for read-
  18. 2515 print"ing text.  [212]hese colors are only ac-
  19. 2520 [153]"tive when you are actually reading an
  20. 2525 print"article.  [217]ou may change the colors of
  21. 2530 [153]"any of the following:
  22. 2535 print"      [212]he [194]order: ";:poke646,c%(.):print"  [146]";:poke646,c%(5):print"_"
  23. 2540 print"  [212]he [194]ackground:
  24. 2545 [153]"  (NULL)he (NULL)itle (NULL)ine: ";:[151]646,c%(2):[153]"  ":[151]646,c%(5)
  25. 2550 [153]"(NULL)he lenommand (NULL)enu: ";:[151]646,c%(3):[153]"  ":[151]646,c%(5)
  26. 2555 [153]"    (NULL)he (NULL)ext peekox: ";:[151]646,c%(4):[153]"  ":[151]646,c%(5)
  27. 2560 [153]" (NULL)he (NULL)ext right$tself:   ":[151]646,c%(3):[153]wt$;
  28. 2565 [153]"(NULL) (NULL)se len(NULL)(NULL)(NULL) keys/mid$oystick to move the   (NULL)";
  29. 2570 [153]"(NULL) arrows, and (NULL)pacebar/peekutton to exit. (NULL)";
  30. 2575 [129]i[178]1[164]2:[153]"(NULL)                                      (NULL)";:[130]
  31. 2580 [153][200](wb$,39);:[129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]:[141]1055
  32. 2585 x%[178]3:y%[178]22:[141]1100:[153]"";:[129]i[178].[164]15:[151]646,i:[153]"  ";:[130]:[153]
  33. 2590 x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[151]646,c%(3):[153]"^";
  34. 2600 [161]k$:j%[178][168][194](j)[175]31:[139]k$[178]""[175]j%[178].[167]2600
  35. 2601 [151]b,0:[139]k$[178]"on"[176]j%[178]1[167]2650
  36. 2602 [139]k$[178]""[176]j%[178]2[167]2670
  37. 2603 [139]k$[178]"cmd"[176]j%[178]4[167]2610
  38. 2604 [139]k$[178]""[176]j%[178]8[167]2630
  39. 2605 [139]j%[178]16[176]k$[178]" "[167]10000
  40. 2606 [137]2600
  41. 2610 x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[153]" "
  42. 2612 c%(r%)[178]c%(r%)[171]1:[139]c%(r%)[179].[167]c%(r%)[178]15
  43. 2615 [139]r%[177]1[167][139]c%(r%)[178]c%(1)[167]2612
  44. 2617 [139]r%[178]1[167][139]c%(1)[178]c%(2)[176]c%(1)[178]c%(3)[176]c%(1)[178]c%(4)[176]c%(1)[178]c%(5)[167]2612
  45. 2618 x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[153]"^"
  46. 2620 [145]r%[170]1[141]2810,2820,2830,2840,2850,2860
  47. 2622 [139]r%[179][177]1[167]x%[178]19:y%[178]10[170]r%:[141]1100:[151]646,c%(r%):[153]"  ":[151]646,c%(5)
  48. 2625 [137]2600
  49. 2630 x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100::[153]" "
  50. 2632 c%(r%)[178]c%(r%)[170]1:[139]c%(r%)[177]15[167]c%(r%)[178].
  51. 2635 [139]r%[177]1[167][139]c%(r%)[178]c%(1)[167]2632
  52. 2637 [139]r%[178]1[167][139]c%(1)[178]c%(2)[176]c%(1)[178]c%(3)[176]c%(1)[178]c%(4)[176]c%(1)[178]c%(5)[167]2632
  53. 2640 [137]2618
  54. 2650 x%[178]21:y%[178]10[170]r%:[141]1100:[153]" ":x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[153]" "
  55. 2652 r%[178]r%[171]1:[139]r%[179].[167]r%[178]5
  56. 2655 x%[178]21:y%[178]10[170]r%:[141]1100:[151]646,c%(5):[153]"_":x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100
  57. 2656 [151]646,c%(3):[153]"^":[137]2600
  58. 2670 x%[178]21:y%[178]10[170]r%:[141]1100:[153]" ":x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[153]" "
  59. 2672 r%[178]r%[170]1:[139]r%[177]5[167]r%[178].
  60. 2675 [137]2655
  61. 2700 [139][194](788)[178]49[167][151]s[170]24,15:[158]49158:[151]56325,49
  62. 2702 [142]
  63. 2705 [139][194](788)[178]49[167]2715
  64. 2710 [158]49155:[151]s[170]4,0:[151]s[170]11,0:[151]s[170]18,0:[151]s[170]5,8:[151]s[170]6,0:[151]s[170]24,15
  65. 2715 [142]
  66. 2800 x%[178]15:y%[178]22:[141]1100:[151]646,c%(3):[153]mu$:[151]646,c%(5):[137]2000
  67. 2810 [151]v[170]32,c%(.):[142]
  68. 2820 [151]v[170]33,c%(1):[142]
  69. 2830 [151]1020,.:[151]1021,.:[151]1022,.:[151]1023,39:[151]646,c%(2):[158]51203
  70. 2831 [151]1020,2:[151]1021,17:[151]1022,1:[151]1023,38:[151]646,c%(5):[142]
  71. 2840 [151]1020,19:[151]1021,21:[151]1022,.:[151]1023,39:[151]646,c%(3):[158]51203
  72. 2841 [151]1020,24:[151]1021,24:[158]51203:[151]1020,2:[151]1021,17:[151]1022,1
  73. 2842 [151]1023,38:[151]56176,c%(3):[151]56215,c%(3):[151]56216,c%(3):[151]56255,c%(3)
  74. 2843 [151]646,c%(5):[142]
  75. 2850 [151]646,c%(4):[151]1020,1:[151]1021,1:[151]1022,.:[151]1023,39:[158]51203
  76. 2851 [151]1020,18:[151]1021,18:[158]51203:cm[178]55296:tn[178]39:ft[178]40:f[178]c%(4):[129]i[178]2[164]17
  77. 2852 [151]cm[170]i[172]ft,f:[151]cm[170]i[172]ft[170]tn,f:[130]:[151]1020,2:[151]1021,17:[151]1022,1
  78. 2853 [151]1023,38:[151]646,c%(5):[142]
  79. 2860 [151]646,c%(5):[158]51203:[129]i[178].[164]4:x%[178]19:y%[178]i[170]10:[141]1100:[151]646,c%(i)
  80. 2865 [139]i[179][177]1[167][153]"";
  81. 2870 [153]"  ":[130]:[151]646,c%(5):[142]
  82. 2900 :
  83. 3000 :
  84. 5907 [151]1020,2:[151]1021,18:[151]1022,1:[151]1023,38:[158]51200:[153]"for";:[158]51203
  85. 5910 [151]s[170]4,.:[151]s[170]11,.:[151]s[170]18,.
  86. 5999 :
  87. 6000 v[178]53248:r[178]v[170]17:s[178]v[170]1024:j[178]56320
  88. 6037 [134]c%(5):[159]15,8,15,"i0":[159]8,8,8,"color.file"
  89. 6038 [152]15,"p"[199](8)[199](1)[199](0)[199](1):[129]x[178]0[164]5:[132]8,c%(x):[130]
  90. 6039 [160]8:[160]15
  91. 6040 wt$[178]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  92. 6042 wb$[178]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  93. 6060 [142]
  94. 10000 [143]   done selection
  95. 10050 [151]646,c%(5)
  96. 10100 [158]51200:[153]"atnre these selections what you want?"
  97. 10110 [153]"[(NULL)/(NULL)] or (NULL) to (NULL)uit"
  98. 10200 [151]198,0:[146]198,1:[161]a$
  99. 10210 [139]a$[179][177]"y"[175]a$[179][177]"n"[175]a$[179][177]"q"           [167]10200
  100. 10220 [139]a$[178]"q"[167]12070
  101. 10300 [139]a$[178]"n"[167][158]51200:[137]2500
  102. 10350 [137]12000
  103. 10360 :
  104. 10400 [158]51200:[153]"(NULL)lease make sure side"si"of your"
  105. 10410 [153]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) disk in in the drive."
  106. 10420 [153]"(NULL)ress a key when you are ready."
  107. 10422 [153]"((NULL)ress (NULL) to (NULL)uit)"
  108. 10430 [151]198,0:[146]198,1:[161]a$:              [139]a$[178]"q"[167]10000
  109. 10500 [159]15,8,15,"i0":[159]8,8,8,"color.file":[132]15,er,er$,ns,se
  110. 10505 fl[178]0:[139]er[179]20[167]10600
  111. 10510 [160]15:[160]8:[158]51200:[153]"str$isk valrror!!!!!"
  112. 10515 [153]"(NULL)lease check your disk drive.":fl[178]1
  113. 10520 [129]dl[178]1[164]2500:[130]dl:[142]
  114. 10530 :
  115. 10600 [152]15,"p"[199](8)[199](1)[199](0)[199](1)
  116. 10610 [129]x[178]0[164]5:[152]8,c%(x);[199](13);       :[130]
  117. 10620 [160]8:[160]15
  118. 10630 [158]51200:[153]"lenolor file is now on the disk."
  119. 10635 [142]
  120. 10640 [147]"hello connect",8
  121. 12000 [143]   do the things
  122. 12010 [141]10400:[139]fl[178]1[167]12010
  123. 12020 [139]si[178]1[167]si[178]2:[137]12040
  124. 12030 si[178]1
  125. 12040 [141]10400:[139]fl[178]1[167]12010
  126. 12050 [158]51200:[153]"(NULL)rocess is now complete."
  127. 12060 [153]"(NULL)ow returning to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)..."
  128. 12070 [153]"load":[151]53281,0:[151]0,47:[147]"hello connect",8
  129.